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: Version: *v04-000' 


-MCALL MFPR 
~ TITLE RELOAD = LOAD AND CONNECT CODE FOR MULTIPROCESSING 
-IDENT ‘'V04-000' 


PARRA ARAAAAAAAALAALAAAALALAAA AREA AA RASA LARA ASAE RRR R RRA E RASA RAR RRR RRA RADE SD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

cs 

® 

® 

y 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. ‘ 
® 

® 

® 

* 

* 

2 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Be Oe Se Be Be Oe Be Se Be Se Ge Be Se Se Ss Se Be Se Se Se Se 
e@aeeneeneneeeneeeneennennnnnn 


RARE AAAKAAAAAAAATAA AAA AAAAAAARAAAAAAAARAARAAAAAAAAAAAAAEAAAARAAAAAETEARAAAAEEE 


+ 
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Facility: Executive , Hardware fault handling 
Abstract: 


MPLOAD is the main control module for the installation of 

the code required for multiprocessing. It changes mode to kernel, 
acquires sufficient pool space and moves the code into it. 

With all interrupts disabled, the necessary hooks are inserted 
into the exec to connect several replacement routines. 


SOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOSOSOSOSOOOOOOOSOOOOSoOO 


SOOCOCOCOCOSOOSOOSOSOSOSOSOSOOSOSOOSOSOOSOOOOOSOOSOOOSOOOOOSOO 


SOooooooocoSo 


Environment: MODE=Kernel 
Author: RICHARD I. HUSTVEDT, Creation date: 15-MAY-1979 
Modified by: 
v03-009 KDM0024 Kathleen D. Morse 1O-0¢ t= 1989 
lter CHMx vectors in secondary SCB if system service 
inhibit was requested at boot time. 
v03-008 EOnO0se Kathleen D. Morse tetas Me 


reate a subroutine that unhooks the multi-process 
code from the system, that can be invoked from the 


ooo 
Sooooo OoOoooooooo 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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v04=000 SEP=1 6:41 (CMP.SRCIMPLOAD.MAR VO: 
t : primary's invalidate time-out logic. 
5; v03-007 KDM0003 Kathleen D. Morse 06-Aug-1982 
§ 3 Make STOP/CPU provide correct address to EXESDEANONPAGED 
9 : when the pool block was < bytes off a page boundary. 
a 
60 ;-- 
3b 
8 : INCLUDE FILES: 
8 64 ; 
ae 
$60 89 > MACROS: 
444 3 
0000 3 »MACRO HOOK,LOC, TARGET : 
000 -LONG LOC ; 
0000 o¢ JMP @#TARGET : 
0000 7 -BLKB 6 3; Normal VMS contents of hook location 
4 ge .ENDM HOOK 3 
B08 6 Wt HOOKJSB,LOC, TARGET 
0000? JSB ae TARGET 
0000 7 -BLKB 6 3; Normal VMS contents of hook location 
0000 80 -ENDM HOOKJSB 
44 81 
$009 es : EQUATED SYMBOLS: 
44 : 3 
$900 Be SCLIMSGDEF :; Define CLI error messages 
4 § SOSCDEF ; Define eoreee descriptor fields 
000 8 SDYNDEF : Define dynamic structure types 
000 89 SIPLOEF :; Define interrupt he iy evels 
B05 90 SIRPDEF ; Define structure header fields 
00 91 SLCKDEF 3; Lock bit definitions 
000 8 SMPMDEF ; Define MA780 registers 
000 9 SMPSDEF ; Define secondary processor states 
000 94 SNDTDEF ; Define nexus type codes 
000 95 SPCBDEF 3; Process control block definitions 
38 SPHDDEF : Process header definitions 
9 SPROEF ; Define processor register numbers 
4 98 SPTEDEF ; Define page table entry format 
0 + SRPBDEF ; Define restart param block offsets 
00 100 SSSDEF ; Define system error messages 
0 101 SSTATEDEF 3; State definitions 
0 } § SVADEF : Define virtual address fields 
104 
105 ; 
88 
0000 1 8 . .PSECT $$S$SSS$BEGIN,PAGE ; Base PSECT 
109 MPSS$BEGIN:: ; 


; OWN STORAGE: 


dD 7 
MPLOA = LOAD AND CONNECT CODE FOR MULTIPR 16-SEP=1 A 4- MP 
v04-0 wi seach §-§ aaaty 85: 8 3 RTE ES Oe Tt — dy vO 
valhcpteacdieey — ce Aer, ucture nek goal for MP code 
d0o09iF . tONe <<<<MPSSEND-MPSS$B ii>ae 4>a4> ize of pool used 
ah <<<<MPSSEND-MPS$B 1>a€-4>a4> ; Structure size 


TE DYNSC_LOADCODE 
DYNSC_LC_MP 


HOOKBASE , HOOKEND 
The convention for the following logical names is: 


; Structure type of soqeneye code 
; Structure sub-type of at siecle 


-BYTE 
enone i ; Addresses to be. ocked in W 


mm 
ag 
| aed 
SS 
-o 
vw 

De Se Se Se ate Se 


of o"eree* pool alloc for MP 


QOO000AC "00000014" I 
1 
1 


) ALL hooks in the exec are prefixed by MPHS 

2) If the entire routine is replaced, then the 
rest of the hook name is the same as the normal 
routine name 

3) If there are only a few Lines of new MP code to 
be inserted, the hook name ends with HK and the 
continuation point (if any) hook name ends with CONT 

4) ALL MP routines are prefixed with MPS$ 

5) If the MP routine entirely clases an exec routine, 
then the rest of the MP routine name is the same as 
the normal routine name 

6) If there are my a few Lines of new MP code, then 
the rest of the MP routine name is a new name 


HOOKBASE : Base of hook table 
HOOK MPHSSCHED MPSSSCHED 
HOOK SRE SCHED D MPSSRESCHED 


Reschedule interrupt 
HOOK mOLscaete AST 


Queue 


SS haododede wee te eee ee 


SOOSSOSOSSSSOSSSOSOSOSOSOSOSOSOSOOSOOSOSOSOSSOOSOOSOOOOOOOOOOOOoOOo 


HOOK MPH SINVACIDAK. MPSSINVALID : Invalidate TB 
HOOKJSB poe ey MPSSBUGCHE CK ; Check for anders during bugchk 
HOOK MPHSASTDELHK, *MPSSASTSCHEDCHK ; Resched pocess pe éndary chk 
HOOK MPHSNEWLVLHK, *MPSSASTNEWLVL 3; Set new PR AST 
00000000 -LONG 0 3 ane of “InP /JSB tye hooks 
SCB_IPL14: 3; Hook f Bs" 4 vector 
00000000 ey 0 3 «Adr of io. word 
00000000 ONG 0 : Old contents of longword 
SCB_ IPLI65 ; Hook for sca IPL=16 vector 
00000000 48 LONG 0 ; Adr of longword 
00000000 49 “LONG 0 ; Old contents of lon quor 
8 50 SCB_VEC94: : Hook for XDELTA (SOF TINT 4, 
0000000 98 51 -LONG 0 ; Adr of longword 
0000000 C 26 -LONG 0 : Old contents of longvord 
BAe 2 SCB_VECBC: : Hook for SOFTINT F 
00000000 A 4 -LONG QO ; Adr of longword 
0000000 OA4 55 -LONG 0 ; _Old contents of longword 
0000000: A8 § «LONG 0 : Empty hook at ends table 
AC HOOKEND: 
0000000 8 -PSECT _END,PAGE ; End PSECT 
2p MPSSEND: : : 
0000 o -PSECT __MPLOAD,LONG 3 
86 LOCKRANGE : 3; Addresses to be locked in WS 
00000525 '000004E1' ee -LONG LOCKSTART,LOCKEND 3 
66 STOPRANGE : ; Addresses to be locked in WS 


—_————— Sess ste 
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GET_LINE “DSC: 
~ASCID = /SLINE/ 


STATE_CTL_DSC: 
-ASCID \!/!_Attached processor is in the !AS state.\ 


45 4E 49 4C 24 000000EC'010E0000° 


v04-000 06:41 MPLOAD.MAR; 1 
0000050C '00000555' 9 188 -LONG STOPSTART,STOPEND ; 
1 1 
! 126 Output buffer for SHOW CPU displays. 
00000000 10 1% GUTPUT_LENGTH: .LONG 0 
14 174 OUTPUT_BUFFER: 
0000005A ys 178 -BLKB 70 
5A 177 OUTPUT_BUF_DSC: 
0 A 17 = LON 0 
88 nittshe 03 179 - ADDRESS OUTPUT_BUFFER 
06 181 DCL_LINE_DSC: 
00000000 006 1 ; ~ LONG 
00000000 544 ! 7 “CONG 0 
006A 185 STATE_VALUE: 
00000000 6A 186 -LONG 0 
Q06E 187 
ae 
Q06E 190 : Array of ascid descriptor addresses for secondary 
QO6E 191 ; processor states. Ordered from minimum to maximum 
Q06E 136 : 3; value of the state. Indexed via numeric state value - 1. 
OOcE 19 STATES: 
900000CB" OOge 195 ADDRESS IDLE_STATE_DSC 
000008F ° 4 136 -ADDRESS DROP_STATE_DSC 
O0000A4' 76 19 ADDRESS BUSY_STATE_DSC 
4444 * QO7A 198 ADDRESS EXEC_STATE_DSC 
00000086' 143 199 ADDRESS INIT_STATE_DSC 
0000098" bbe 9 eADDRESS STOP_STATE_DSC 
+44 8 INIT soced osc 
41 49 54 49 4E 49 eeney Bei yd 44 0 ASCID /INITIALIZE/ 
bee 04 STOP_STATE_DSC: 
50 4F 54 53 000000A0'010E0000' 1 4 05 BUSY. “state bats /STOP/ 
59 53 55 42 000000AC'010E0000° One 09 sal “eratesGie /BUSY/ 
54 55 43 45 58 45 00000088 "010E0099" oe0 09 “ .ASCID = /EXECUTE/ 
OBF 10 DROP_STATE_DSC: 
50 4F 52 44 000000C7'010E0000' pre 1) IDLE _ stat gascie /DROP/ 
45 4C 44 49 000000D3'010E0000' 8 18 at sein -ASCID- /IDLE/ 
42 52 45 56 24 O00000DF '010E0000' { 12 “ASCID /$VERB/ 
+ Sit 
1 i$ 
1 20 
F 


Rw WN MMMNMOVOO 


SOoOoOooooSooo 


74 41 SF $3 F 1 0000: oe 9°0 0106 9009" 


65 63 6F 0 64 6 
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TiS 
ERERNBHR RG EG 


1 
338 ILSTATE_CTL_DSC: 
-ASTID \!/!_Attached processor is in an illegal state of !XL\ 


pelelelelelelelelelolololo} 
Ok kd 
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OOO SMV LL ewsw® 


4 
5 
$35 -LIST MEB ; Show macro expansions 
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‘ -SBTTL MPDCL = Multi=processing DCL command Line handling 
Functional Description: 


This routine contains the entry point for MP.EXE, MPSDCL. Pig 


determines which command verb was requested (START, STOP, 
and branches to the appropriate code. It reports an error if the 
invocation was not via one of these three verbs. 
Calling Sequence: 
CALLx MPSSDCL 


Input Parameters: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


1 
1 
i 
1 
16a 338 
18 
18 
19 § 
1 40 
16 41 
160 tg 
160 4 None 
168 44 
16 45 ; Environment: 
160 6 
B10 rt 4 Executed by the primary processor. 
b1e0 49 ; Return Status: 
0160 50 
0160 51 SS$_NORMAL = normal completion 
0160 26 $S$_ DEVOFFLINE - ¢ ice is not in configuration (returned if not 
0160 5 n 11 » or secondary is not starte 
0160 54 SS$_ SHMNOTCNCT - shared poner? not connected (returned if no MA780 
0160 55 s found for START/CP 
0160 2 CLIS_ ABVERB = unrecognized command (returned if MP.EXE is not invoked 
0160 5 via START, STOP, or SHOW DCL commands) 
0160 58: 
160 59 :-- EXxl 
160 260 ERRORX2: EXI 
50 84 BF 9A 0160 61 MOVZBL #SS$_DEVOFFLINE,RO ; Report device not in configuration EX 
164 6¢ ERRORXS: Ex 
04 0164 6 RET ; Exit with error status FO 
165 64 MPSSDCL:: GE’ 
0000 168 65 -WORD 0 : Entry mask GE’ 
16 66 -ENABL LSB GE 
00000000'°GF 01 91 0167 6 CMPB re G*EXESGB_CPUTYPE : Is this an 11/780? HO 
FO fs 1g 68 BNEQ ERROR Br if not. error exit HOI 
FEFO CF 02 9 1 +4 MOVB #DSC$K_CLASS_D,DSC$B_ casssDel LINE_DSC ; Initialize descriptor HO 
FEE9 CF OF 017 0 PUSHAB DCL_LINE_ ; Buffer dsc adr for command Lin 1D) 
F67 CF OF 179 71 PUSHAB GET_LINE_DSC 3; Ose adr of callba a item requested IL 
00000000 ' GF 2 FB 17D i CALLS @# ob shaeee = VALUE ; Request command Lin TN 
DD E ; 3  . BLBC R : Br if error in 
187 75 : Determine which DCL command was issued: SHOW/CPU, START/CPU, or SHOW/CPU. IN 
: 4 6 3; If none of these was issued, then exit with an error status. 4 
52 _FEDB CF 99 187 4 MOVL ty) Lis ghee *0scsa. POINTER R2 ; Get address of DCL command Line IP 
38F 8 1 01 7 CMPB J+, : first character must be an S IR 
1 i 1 0 BNEQ ERR ORK ; Br if unrecognized ver IR 
48 8F G 19 1 CMPB FAS ee A\H\ : Check for SHOW verb LC 
6 13 019 § BEQL SHOW_CPU : Br to execute SHOW/CPU command Ll 
54 8F 2 91 019 CMPB (R2)F,#*A\T\ s Check for STOP or START verbs LO 
C 12 019¢ 4 BNEQ ERRORX3 ; Br if unrecognized verb LO 


7 ooo ——— — . co 


wit 


41 8F 2 


4F BF 63 


50 00038090 8F 


0078 


0370 


50. 0 
51 00000000 ' GF 
FE9D CF 0000°C1 


00 


ES AF 
00000000 ' GF 06 
D4 5 
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4 19 5 CMPB (R2) ,#*A\A\ 3; Check for START verb 
13 OIA § BEQL © START CPU ; Br to execute START/CPU command 
pf 1A CMPB (R2) ,B*A\O\ 3; Check for STOP 
1 1A8 8 BEQL STOP_CPU ; Br to execute sTOP/CPU command 
1AA ERRORX3: 
DO QIAA 0 MOVL #CLIS_IVVERB,RO ; Report unrecognized command 
1B1 1 ERRORX4: 
04 0181 5 3; Exit with error status 
18 95 START_CPU: 3 START/CPU DCL command execution 
31 5 Be BR MPSSLOAD ; Continue loading MP code 
18 38 STOP_CPU: ; STOP/CPU DCL command execution 
31 + $3 BRwW MPSSUNLOAD 3; STOP/CPU DCL command execution 
18 99 ; 
1B 0 ; GETDATA = This routine goes into kernel mode and copies 
18 1 ; needed data into a local buffer. 
188 : GETDATA: 
0000 018 04 -WORD 0 3; Entry mask 
9A OBA 5 MOVZBL #SS$_NORMAL,RO 3; Assume succes 
f 1BD $ MOVL GEES LMP, *R1 : Get adr of losded MP code 
1 1€4 BEQL ERROR Br if MP not loaded 
dd 01C6 308 MOVL MPSSGL STATE(R1) , STATE “VALUE; Copy state variable 
04 Hb 1 RET : Exit from kernel mode routine 
Bice 11 : The command was SHOW CPU. Change into kernel mode to 
ice \¢ 3 3 access the state variable for the secondary processor. 
bce 14 gHow. CPU: 
Bite 15 SCMKRNL_S GETDATA 3; Acquire secondary state 
DD OIC “PUSHL #0 
DF 01D yt #9.6" 
F 1D CAL : OER YSSCMKRNL 
L ; Exit with error status 
E bes } BLBC RO; ER RORK Exit with 
1DD \8 3 Now format and output data. 
1p> 320 fos 
7 10D 1 MOVAB ILS a CTL_DSC,R2 ; Assume illegal state 
1) lee § MOVL STAT LUE;RO 3; Get state value 
D1 O1E CMPL RO. 4A IAPSSK” VIGLESTATE : Is this at least minimum value? 
19 O1EA 4 BLSS 208 : Br if bad value 
01 1EC 5 CMPL RO, #MPSSK_STOPSTATE : Is this at least maximum value? 
14 O1EF 6 BGTR 208 : Br if bad value 
D7 O1F1 DECL R ; Convert value to an index 
0 1F3 8 MOVL STATESCROJ,RO 3; Get address of ascii state text 
1F9 9 MOVAB STATE_CTL_OSC,R2 ; Output ascii state name 
1FE 0 208: SFAO_S CTRSTR=(R2),- 
1FE 1 OUTLEN=OUTPUT_LENGTH,- 
1FE § QUTBYF SOUTPUT BUF _DSC,- 
1FE 3; Format output Line 
oD a3 PUSHL R 
f PUSHAQ guteut BUF _DSC 
Mi 4 PUSHAW OUTPUT_LENGTH 
F 8 PUSHAQ 
FB A CALLS #$$T2,G°SYSSFAO 
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E9 11 4 BLBC ; Exit with error status 
b0 14 5 MOVL output. “LENGTH OUTPUT_BUF DSC ; ; Initialize output buffer dsc 
F 0218 é PUSHAQ OuTPY € : Dse ad? for output buffer 
FB 1F CALLS cL TBS POT_o utbut : Output Secondary processor state 
§ 3 8 BLBC RO,ERR 3; Exit with error status 
9 40 EXIT 
ob 9 4) MOVZBL #SS$_NORMAL ,RO ; Exit with success code 
04 C 4 3 Exit 
1) 4 -DSABL LSB 


s3 
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-SBTTL 

Functional Description: 
MPSSLOAD is Linked together with all of the code requires for multi- 
processing. The necessary amount of nonspaged pool is allocated 
and rounded up to page boundary. Code is then moved into this 
block of pool. ALl of this code must be PIC although a Limited 
amount of relocation will be done on data cells and the SCB for 
the secondary processor. 

Calling Sequence: 
BRW MPSSLOAD 

Input Parameters: 
None 

Environment: 


Executed by the primary processor. 


Be Be Se Se Se Be Be Oe Se Se Se Se Se Se Se Se Se Se Se Se Sete Seee 
+ 


NM —OODNAUNE WN OOO NOULS WH OOONOU 


SIND ODD DODD TUTTI 


MPSSLOAD: : 3; Load multi-processing code for START 
SLKWSET_S INADR=LOCKRANGE ; Lock critical code into WS 
00 oD PUSHL #0 
00 D PUSHL #0 
FOCB CF F PUSHAQ Mt 
00000000 ' GF 2 FB CALLS #3,G*SYSSLKWSET 
2150 +=€9 $7 BLBC RO,ERRORX1 ; Exit if unable to lock pages 
o 8 74 SLKWSET_S JRASR=HPSSHOOR TEL ; Lock critical data into WS 
00 PUSHL  ] 
0000000C ‘EF F PUSHAQ MPSS$HOOKTBL 
00000000 ' GF 2 F CALLS #3,G*SYSSLKWSET 
0D 50 € $2 BLBC RO,ERRORX1 ; Br if error 
76 SCMKRNL_S W*MPSSLOADK : Execute kernel routine 
00 oD PUSHL 4&0 
O279°CF OF PUSHAL W*MPSSLOADK 
00000000'GF 02 FB CALLS #2,G*SYSSCMKRNL 


ERRORX1: 
RET 3; Return 


LOCAL_MEM_ERR: 
VL 


50 00000000'8F 00 my WERRS_LCLMEMUSED ,RO ; Local memory cannot be used for MP 


MA780_NOT_USED: 


o 
SOOOCOCOOOSOOOOSOSOOS COSCO OOOOCOOOOOSOOOOOCOOOOOOOOOOOoOO 
——§ OO OOO | | OOOO OW MBO MOOV VCVCVVVT VVC VVCVVTVCCOVVCVVCVCTCCT"C"C0"TC0"0 


SENNA A AAA AAA ADA MINIM E & EAI 


50 00000000'8F B0 nove #ERRS_MA780_REQ,RO ; MA780 memory required for MP 
MA780_CNCT_ERR: 
50 00000000'8F 00 ~~ MOUL #ERRS_SHMDBLUSE ,RO ; MA780 memory used for MP and MA780 


Ee | ee 


wnrere 
00000000 ' GF 


see 


1 0008 ' CF 
00000000 ' GF 


oO o 
7 QS 
> Pd 
MP o 
o 
oo 
ACEO oO 
=] ss =~a=as" © 
Ses oa 
So ~ 
ee 2 @ 
MOOM NOOOEE NMSUOMVsunnumonwn 


OMAN CMAN 2207 = TNONMNTNNO 


to] 
Mm 
SSSsoso m—oo°7o RR Seed 4 beeps 4 


50. -0000' 
00000000" 


00000000 ' GF 


BMIMOco—MmO 


PPO) 3 2 2 2OQOOCOCO RM NMMMMMNOCGOIVIMFMOFOCOWWW > = >>>rrr>r Lh NS te ww! 
@ SANSOM oO OwW—-@Wo 


GDOAANG SIF OOWT DOOWS VN OOnNNVYS 
NA ALAN 9 OD NAN WIN 9 OO NAM EWN OG OONAUN EWN @ O OONAUE WH OOONOUS UT 


PERE ES ES FWWWNWWNINIWIIRPOPOPOPOPOPUNPOND | 2 = >  BOOOOCCOOOCOSGO OOOO OO00O 


Pee ee UUM MUAAMUAUMUAAMAUAAMAAAAAMAAMMHnet eee 
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RET 


MPSSLOADK: : 


8 
DEA_ERR_EXIT: 
PUSHL 


: The a¢ resses in the 
3; by ad +i ¥ 


; address 


ESGL_MP 


an cxetL ahaa RPBsL 82 


#RPBsy “MPM ,R RPBSL 
PSStL POOL 


G*EXESALONONPAGED 


DF ,MPDBGSWT 
#0 


R1 
IRPSW_SIZE 

W*MPSSGL_POOLDSC 
W“MPSS$GL~POOLDSC 


W*MPSS$GL~POOLDSC 
STR CEAMONPASE 


RO 
W“MPSSGL_POOLDSC,RO 
G*EXESDEANONPAGED 


G*EXESGL_MP 


W“MPSSBEGIN,RO 
RO,R10,R 


the relocation value. 
correct and need not be relocated. 


“SEP=1 
“SEP=1 


x 
T 
x oe. sven ist 
ab ch 


ate 
R5(RO 
W_SIZ 


2E(RO) Set size 
_MPa8+DYNSC asia These. TYPE (RO 
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system interconnect at same time 


RD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> ; Entry mask 


. eoeeneers already started? 
or on ie tie don't do anything 

in use as $s . intercnct? 
{- " MA780 ah ready use 
oer,e address of RPB 
(RO) BO NOT D ai ERR ; Br if booted with 
) MA? : —_ memory 
E,R1 sie - loadable 
Allo cate necessary block 


z;*eeee Drop IPL for debugging 


Exit if none available 

Remember starting address of pool 
Assume nothing to return to pool 
Round up to page boundary 

Set to page boundary 

Save address of block 

Set exec pointer to MP code 

Compute size of unused piece of pool 
:; Br if procs . peat yee pene tgned 


unused yee 
Set t type 
piece too small to bother returning 


r if too small 


3 Set page-aligned pool adr 
3; Set page- aligned pool size 
tonest eta L=POOLDSE*TRPSy SIZE ; Set page-aligned size 


3: Initialize enough of pool block 


to allow its deallocate if an 
error exit is required 

Return unused piece of pool 

Br if successful 


; Save error exit st 

; Get address of pool iT taeenell 
; Release block of pool 

; Restore exit status 

; Indicate no MP code loaded 

; Exit with error status 


; Address of start of code segment 
; Relocation offset is difference 


CB for the secondary processor are now relocated 
SCB pointer already a system space 
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MOVAB F SEPEAL BASESSIE At i Get bese gf SCB 
MOVZBL #128,R0 : Do all 128 vectors 
- DSABL LSB 


SCB_LOOP: : 
71 =~5 TSTL -(R1) : Is vector in system space? 
3 19 BLSS 10$ 3; Yes, skip i 
61 3 ADOL R9,(R1) 3; Other wise relocate pointer to point 
F650 «SOF 0S: SOBGTR RO,SCB_LOOP 3; to code segment. Do all 128 vectors 


1 
3; Locate all the aytsiport memory controllers and inietet ies fhe ScB 

3 vectors for the oteraproceseor interrupts. The first MA780 is used for 
; the multi-processing scheduling interrupt while the other MA780s are 

3; vectored to an uncuesctes interrupt Logging routine. The error interrupt 
3 vectors for the MA780s are initialized for the secondary also, while 

; those for the primary were initialized in the normal VMS boot procedures. 


LOC_MPM: Initialize vectors for MA780 memories 


50 D4 CLRL RO Initialize index 
52 9900 "tf 9 MOVAB W*MPSSINTS8,R2 Get adr of error interrupt logger 
9 ¢ AD R9, Relocate for eventual location 


01 

- sortie OE 

55 30000000" GE Dd 

56 0000000'GF 00 
5 QOOO'CF ODE 


10 QOO00000'GF 00° €E1 
44 A? Q000000°GF ODE 
40 A7 0000000'GF ODE 


Get address of SBl config array 

Get address of first MA780 base 
; Base address for primary SCB 

Get base of RPB 

Base address for secondary SCB 


S$GL_FLAGS .5$ ; If sys srv are being 
$ inhibited, then revector the 
3 entry points for CHMK and CHME 


G*EXES$GL~SCB,R5 

MOVL G “RPB,RO 

MOVAL W*SCBSAL~BASE,R7 

BC S*#EXESV_SSINHIBIT,G*EXE 
MOVAL  G*EXESCMODEXECK, “x44 (R7) 
MOVAL G*MPSSCMODKRNLX.*X40(R7) 


é 
: Set interrupt stack bit in vector 


FPOLOOIMNS NNO OVUIAOWOD OOOODOOOODOVDOW THD 


C909 C9 CD NII IO OOO UI BB WIAA AINA AAA AAO 


Pea ata ot ot ot ot ot ot ot ot at at aE UM MUMUMUMUMUAMMMMUAUAMMMM eee 


DOOOO OOO OOOO OO OW 09 0909 09 09 09 09 08 SINISE A AAA AAAAA MMIII 
PUAN OOOO UE WN 9 OO NAME WIN 9 ODNOU EWN) 0 OO NOUS WA)" OWOONO US UW" 0000 
ee 
wo 


SOOO OSOSOOSOOSOOOCOOCOOOOOCOOOCOOCOOOOOOOOOOOOOOOOOOOO 


5$: 
51 0090 C640 03 88 10$: BICB3 #3,RPB$B_CONFREG(R6)CROJ,R1 ; Get a type arte 
51 40 8F 91 CMPB #NDTS$_MPAO,R1 : Is it a multiport memory? 
7D 3612 «03 BNEQ 15$ ; Br if not an MA780 
58 0100 C740 43 4 MOVAL £36607) [20I.R8 3; Compute address of first vector 
40 A 5 D 90 MOVL Rg «Gack ) 3; Set IPL=X15 vector (error interrrupt) 
ooco c8 5 b0 he} MOVL R2,192(R8) 3 Set IPL=X17 vector (error interrupt) 
0000‘ CF D5 99 TSTL W*MPSSAL_MPMBASE : Is this the first MA780? 
51 12 ap BNEQ 12$ ; Br if not 
51 9900" ¢f 9 OF MOVAB W*MPSSSINTSR,R1 ; Get adr of secondary interrupt rtn 
3} > AS ADOL R9,R1 3; Relocate for eventual location 
1 =< A7 BISL ° ; Set interrupt stack bit in vector 
68 1 O AA MOVL R1,(R8) 3 Set IPL=X14 vector (inter-proc intrpt) 
0080 C¢ 1 OD A MOVL R1,128(R8) 3 Set IPL=X16 vector (inter-proc intrpt) 
51 9900 ¢F 3 MOVAB MnP ser inTsA Rt ; Get adr of priaery Seterrust routine 
1 9 C ADDL R9,R ; Relocate for eventual Loge ion. 
3 2 c8 A BISL #1,R1 ; Set interrupt stack bit in vector 
58 91 C5 D p MOVAL 236(R5) CRO} RB : Compute address of first vector 
9000008 ‘EF 58) OD C MOVL  R8,SCB_IPL14 : Remember adr for unload logic 
0000008C "EF g D CA MOVL (RB) SCB_IPLI4+4 ; Remember contents for unload 
68 : @ D1 MOVL R1, (RB) : Set IPL=X14 vector (inter-proc intrpt) 


ae Oe 


FF8D 
gongs 


51 1 
8 1 
0080 C 1 


84 6340 

E250 10 

50 0000°CF 

08 

50 §=6037C_8F 

FEEC 

51 9900' ct 

7. 

QOOO00O98'EF 0094 C5 
0000009C EF 094 C5 
QO00000A0 ‘EF OBC C5 
000000A4 "EF OBC 73 
C gers f 

0094 C5 1 9 

OOOO'CF 20 

000'CF 

52. 60 

00 

52. 52S 

a 19 

0000'CF 00001111 8F ¥ 

OOOO'CF OF 33 
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SEP-1984 5:53 VAX/VMS Macro v04-0 Page 1 
Breet b8s BSibaset PAR“ URS acre voKR 08 ve tf 
iE ),SCB_IPL1 1 ; Remember adr for unload logic 
) 43se- IPL164+4 3; Remember contents for unload 
28 (RB) ; Set IPL=X16 vector (inter-proc intrpt) 
Rig 3; Continue with common code 
10$ 3; Branch assist 
W*MPSSUNEXPINT,R1 ; Get adr of unexpected interrupt rtn 
e 3 Relocate for eventual location 
3 Set interrupt stack bit ot vester 
Ri, * (RB) : Set IPL=X14 vector (inter-proc intrpt) 
Ri, *128(R8) 3; Set IPL=X16 vector (inter-proc intrpt) 
(R3) CROJ, (R4)+ ; Remember adr for this MA780s registers 
#16,R0,118 ; Try all 16 


pe de MPMBASE ,RO 


ysss SHMNOTCNCT,RO 
DEA_ERR_EXIT 


YAP SORESCHEDIPLS .A1 


Get base of MA780 registers 
Found at least one MA780 

Indicate failure to find an MA780 
Error exit with pool deall 


Get address of erieery fork rtn 
bit 


1,R1 Set interrupt stack in vector 
“194 (R5) ,SCB_VEC94 Remember adr for unload logic 
“*X94(R5) ,SCB_VEC94+4 Remember contents for unload 
“XBC(R5),SCB_VECBC Remember adr for unload logic 
*XBC(R5),SCB_VECBC+4 Remember contents for unload 
“x94(R5) ,*xXBC(R5) ; Make XDELTA respond to softint “xF 
R9,R1,°X94(R5) Relocate for eventual Location & store 
#MPMSC_IIR,W°MPSSAL _MPMBASE.= Compute address of 
WAMPSSGL_MPMIIR ; interrupt request register 

; Interrupt routine 

MPMSL Coen? R2 ; Read centiguretien register 
#MPMSU_CSR_PORT,- ; Get port number 
#MPM$S— ESR -PORT: "R2, AZ 3 
eyrary 11R R_CTL,R2,R3 Set to control field 

*xT1117W°MPSSGL “PRIMSKT. : Generate interrupt trigger mask 


ie Compute bit position for tr gger 
Roce XE, W*MPSSGL _PRIMSKC: Align and store mask for clear 


: Compute the physical addresses for the secondary SCB and the Secondary 
: initialization routine starting address. 


G*MMGSGL = BA TBASE oR5 3 i Get base of SPT 

W*SCBSAL_BASE ,R ; A of Secondary processor SCB 
Ne locate to eventual location 

tay PN, #VASS_VPN.R1, al act virtual r Rees" number 


(R5) 
#PTESV pin giPTESS api. RO. RO Isolate p page.n 

5CBB 3 Save © Physi s3 CB ed 
ure geperesel R : initialization routine 
AS PN, #VASS_VPN.R1 Ri Relocate fo eventual {acation 
tRSDERL ON RO : fetch PTE for rt 


=z 
ov 
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50 50 1 F O4A 6 EXTZV #PTESV_PFN,#PTESS_PFN,RO,RO ; Isolate page number 
10 A6 33 88 5B rt § ASHL 79 ROURPBSC HAL TPL (ROS ; Save starting Physical address 
; Relocate some stray locations 
rt 5 ; Relocat l i 
48 5 MISC_RELOC: : 
00000000‘ EF 9 ¢C 48 8 ADOL R9, XDELIBRK 3; Address for initial Breghootnt 
BBR o hob EE 9 ¢ 4BF § ADDL R9,MPSSGL_STRTVA 3; Address for jump into SO space 
0000000' EF a: cee A ADDL R9,MPSSGL_ISP ; Interrupt stack for secondary 
4CD if 3 Remember the time and date that this code was loaded. This field 
4CD 73; is used by the MONITOR utility to determine if the multi-processing 
4CD 74; code has been reloaded during its last sampling interval (and therefore, 
3 the cpu time accumulation cells have been re-initialized). 
eee o h lati ls h b initialized) 
0600' CF 00000000 ' GF 7D ise 7 mMOVQ G*EXESGQ_SYSTIME,W*MPSS$GQ_MPSTRTIM ; Get time in 64 bits 
rt rg ; Now move the code into the pool segment after all relocation is done. 
ry ? MOVE _CODE: ; 
5B O000°8F 3C 0406 5 MOVZWL #<MPSSEND-MPS$BEGIN>,R11 ; Size of MP code in bytes 
6A O000°CF 5B 28 beee Z MOVC3  R11,W°MPSSBEGIN, (R105 3; Move code to allocated pool space 
04E1 5 oat DF ,.MPDBGSWT . 
04E1 § NOP peeeee Instruction for debug breakpoint 
4E1 8 -ENDC 
tf} 889 
4E1 aH ; Begin locked down code that will execute at IPL=31 to actually 
rt} a0) 3; install needed hooks into the running system. 
rea 398 LOCKSTART: 3 
4E1 94 SETIPL #31 
ie 1F DA 4E1 MTPR #31, S*°#PRS_IPL 
00008 OO'GF 16 Q4E4 332 JSB G*INISWRITABLE ; Set writable for installing hooks 
55 a's a 4EA 38 MOVA ROOKBASE «Ro 3; Get base of hook table 
5 2g - 4F1 59 ADDL R9,R5,R1 3; Get address of loaded mp code 
50 BS 09 4F5 298 10$:  MOvL (R5)+-RO : Fetch address to install hook 
-_ * 4-8 9 BEQL 20$ 3; Done if address is zero 
OA Al 0 60 O4FA 600 MOVW S09}, 19C81) ; Save normal VMS contents for STOP/CPU 
80 5 8B oft 601 MOVW (R5)+,(RO)+ 3; Move JMP opcode + operand specifier 
oc al 60 D 30 6 : MOVL. (RO),12(R1) > Save normal VMS contents for STOP/CPU 
80 5 59 C1 0505 ADOL RO, (RS) +, (RO)+ 3; Set address 
5 98 C : 9 4 ADOL #6,R5 3 Point to next hook 
1 ¢ C 5 ADDLe #16,R1 : Point to next hook 
FS 1 SOF 6 $ BRB 10$ 3; Continue instal ting hooks 
0003 = 31 31] ? 208: BRw HOOKS _DONE ; Branch assist for hooks completed 
aie 6 § : This code is loaded into the RPB. It is used as a safe place for 
514 919 3 the secondary to wait while the pr inery does a bugcheck. The first 
314 ele 3 longword is modified by the primary after it reboots. 
14 613° .ALIGN LONG 
00000510 0514 gia RPB_BUGCHK=.=4 ; Address of longword that is modified 
14 15 3; by primary and secondary 
14 18 MPSSRPB_WAIT:: : 
F9 BF 17 14 1 JMP @RPB_BUGCHK ; RPB loop for secondary to execute 


- LOAD AND CONNECT CODE FOR MULTIPROCESS at de 9 06303339 AE yns acre veaet Page i, 


1 
00000003 i é i§ RPB_LOOPSIZ = .-MPSSRPB_WAIT 3; Number of bytes for code for RPB loop 
1 3 
1 6 3; Now load loop code into the RPB for bugcheck. This must be loaded 
! ° ? : in two steps. First, the loop code is loaded and then the loop address. 
17 625 HOOKS_DONE: 
0100 C6 _—=sOF FS CF 03 8 aif 6 8 MOVC #RPB_LOOPSIZ,W*MPSSRPB _wAIT, Reese co ; Load JMP loop 
OOFC C6 10 AB OD 1F 6 MOVL RPBSC _HALTPC(R6), RPBSL_ -BUGCHK (R6)"; Now start the secondary 
5 ? 3 , 3 executing at EXESMPSTART (phys. adr) 
6 0 LOCKEND: : End of locked code 
2 2 ° § > Installation of the multi=-processing code is now complete 
5 : 634 INSTALL_DONE: 
QO000000'GF 16 B ; ° 2 ts a aaeaiatre 3 peees BF eRER TES on system pages 
; Dro 
12,00, pA 0598 MTPR #0, S*#PRS_IPL : 
FACF* 0 O52E 637 BSBW MPSSMAINIT 3; Initialize MA780 for interrupts 
50 01 DO 0531 638 MOVL #1,R0 3; Set status to success 
04 0534 639 RET 3 and return 
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-SBTTL MPSSUNLOAD = STOP/CPU DCL command 


ale) 


64 
gi$ 
2 S66 ; Functional Description: 
5 978 3 MPSSUNLOAD is Linked ¢ fovetner with all of the code required for 
2 647 ; multi-processing. s routine causes the eae op B gig 
5S 648; to halt and thes ms. 8 the sult ioorpeges ing code (i.e., restores 
535 649 ; all the executive hook locations to their or ginet Sete and 
2 $20 3 restores the SCB to its single processor VMS values. 
: $26 : Calling Sequence: 
05 654 ;: BRW MPSSUNLOAD 
05 : 655 ; 
be 2 628 3 Input Parameters: 
0535 658 ; EXESGL_MP - Points to sult i=process ing code loaded in pool 
0535 659; EXESGL_RPB - Points to RPB 
0535 660; 
0535 661 ; Environment: 
O83 eS | bunouted bi the pet 
3 xecute e primary processor. 
0535 664; < ' Ha 
0535 665 ; 
0535 666 ;-- 
0535 667 
0535 668 MPSSUNLOAD:: 3; Unload multi-processing code for STOP 
0535 669 S$LKWSET_S INADR=STOPRANGE ; Lock critical code into WS 
00 oD B3¢8 PUSHL 4&0 
00 od 0537 PUSHL 
FACB CF 7F 0539 PUSHAQ STOPRANGE 
00000000 ' GF 03 FB 0530 CALLS #3,G*SYSSLKWSET 
0D 50 €9 0544 670 BLBC RO,EXIT2 ; Exit if unable to lock pages 
B20) 671 SCMKRNL_S W*MPSSUNLOADK ; Execute kernel routine 
00 OD 0547 PUSHL #0 
O555°CF DF beep PUSHAL W“MPSSUNLOADK 
00000000'GF 02 FB 054D CALLS #2,G*SYSSCMKRNL 
554 ore EXIT2: 
04 0554 67 RET ; Return 
555 = 674 
0555 675 
0335 ers STOPSTART: 
OFFC 333 of8 MPSSUNLOADK: : ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RI1> ; Entry mask 
55 67 SETIPL #IPLS$_SYNCH nchronize on primary 
12 08 A 0557 TPR ~ #IPLS_SYNCH,S*#PRS {PL 
5 1 A 055A 680 MOVZBL #SS$_NORMAL, RO 3 © ae succe 
5A 00000000" st D 270 681 MOVL “EXESGL_MP, *R10 : Is melti-ares “ede loaded? 
eS 64 6 § BNEQ $ ; Br R.. ness cent tee unloading 
O06F 3 206 6835 4$: BRWwW 00$ ass 
F7 O000'CA E6 056 684 5$: BBSSI #MPS$V_STOPREQ MPSS$G ~sTopri acim ) 4g: Set Dh be request fig 
00 0000'CA 00 £6 Sf 685 198: BBSSI #LCKSV_INTERLO otk MPS Bt MTT ATES .1S$ ush cache 
05 6000" A D1 0575 «6 6 15$:  CMPL MPS$GL~ “STATE CRIOS. AMPS RI : Is Silencers active? 
18 OS7A 6 BGEQ 50 A active, no process to return 
00"Ch 16 44 6 8 JSB MPSS uTseme cere? erupt saggneecy with STOP request 
FA 0000° oP 1 E 8 689 20S: BBCCI #MPSSV_STOPACK1 ,MPSSGL gfodtttere ) Wait for secondary 


+ ge = LOAD AND CONNECT CODE FOR mULTIPROFESS 19° SEP- 1384 og: g3 753 pases Macro V04-00 Page 16 
- UNL - U DCL comman L 
v04 MPSSUNLOAD STOP/CPU DC d -SEP-1 6:41 tne. SRCIJMPLOAD.MAR; 1 (1) 
00 QOOOO'CA O00 CE 586 90 BBSSI #LCKSV_INTER Lock K ,MPSSGL_INTERLOCK(R10),30$ ; Flush cache 
84 6000"¢A b} 2 4 308: CMPL MPSSGL_STATE(R10 MPMP SSR. IDLESTATE ; Is secondary active? 
ea 2 2 BEQL 50$ ; Br if not active, no process to return 
22 o2e ; Return process executing on the secondary to the scheduling queues. 
51. QO00'CA 00 28 4) MOVL MPSS$GL cumece ceo). RI ; Get PCB address for process 
52 0B Al 9A 059 69 MOVZBL Rei G* PB nBst : Get current priority of process 
00 00000000'GF 52 ES 59¢ $38 BBSS R src GL. tongs 40S: Indicate something in sched queue 
ss Al 0S 5SA4 9 40$: MOVW astise C0 att ae gt ATECRI) 3 Indicate process is computable 
53 00000000'GF4 E 05A8 700 MOVAQ Ka con i Get tail of queue 
61 O $289 ot INSQUE (R1),a(R 9 rocess in ae queue 
OUOO'CA 06 OD 58 7 § MOVL snpsge STOPSTATE ,MPSSGL ittth ) ; Set secondary stopped 
b288 70 SOF TINT FIPS SCHED vest primary reschedule 
14 03 ODA 388 a MTPR ~ #IPL$_SCHED, s*aPRS. STRR 
; Now unload the multi-processing code. 
0586 708 load th Lti i d 
QO00'CA 06 00 0388 707 S0s: MOVL #MPSSK ae MPSSGL STATE (R10) Change INIT state to STOP 
0000'CA 16 O5C0 708 JSB MPSSUNROO ; Call routine to unhook MP code 
05¢4 709 SETIPL #IPLS_A STOEL Lover IPL for deallocate of pool 
DA 05C4 T #IPLS$_ASTDEL s*#PRS I 
50 QO00'CA 00 O5C7 £710 MOVL peek POOL DS CRIS “83 ; Set 4, nee of block to return 
aeeee & 16 OSCC 711 JSB 6 ex CSBEANDNPAGED ; Return block of nonpaged pool 
03 50 €9 O5D2 ar BLBC R 0$ ; Branch if error 
50 01 9A Q5D5 71 MOVZBL #S§$_ NORMAL ,RO ; Return success code 
b208 714 100$: SETIPL #0 3; Restore IPL 
12 00 DA 05D MTPR #0,S*#PRS_IPL 
04 0508 715 RET 3 
O5SDC 716 
05DC 717 STOPEND: 


E 8 
+ es = LOAD AND CONNECT CODE FOR MULTIPROCESS 1 ~$50=1 388 9s: §: 753 aes Macro V04- 09 Page 17 
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-SBTTL MPSSUNHOOK = Unhook multi-processing code from system 


— 


+ 
Functional Description: 
MPSSUNHOOK is a part of the loadable multi-processing code. 
It unhooks the multi- Gag code from the yas system and 
resets the system to be a single processor 11/780, executing 
a vanilla VMS system. 
This code is invoked for two reasons: 1) a STOP/CPU DCL command 
and 2) an invalidate request time-out. It must be loaded into 
pool due to the Latter usage. 
Calling Sequence: 
JSB MPSSUNHOOK 
Input Parameters: 
R10 = address of multi-processing code in non-paged pool 
Environment: 
Executed by the primary processor. 
Side-effects: 


RO,R1 destroyed. EXESGL_MP is cleared. 
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0000 -PSECT SAEXNONPAGED,LONG 
MPSSUNHOOK: : 
DSBINT ; Prevent all system events 
7E 12 0B FPR S“#PRS IPL .=(SP)_ 
is 1F DA MTPR #31,S*°RP 
50  00000000'GF oe 754 MOVAB G*SCHSGL mUCLPCR RO Get address of null process PCB 
50 6C AO OD 755 MOVL PCB$L_PHB(RO) .RO Get address of null process PHD 
38 AO QOOC'CA C2 £36 SUBL messor NULLCPUCR10) pHpsi _CPUTIM(RO) Del secondary null time 
00000000'GF 16 75 JSB G*INISQRITABL S"Make executive writable 
51 gy's's8 9 758 MOVAB HOOKBA EER ),R1 3; Get address of exec hook table 
5 wn 2 759 60$: MOVL (R1),R ; Get address of a hook 
— ae £69 BEQL ips 3; 0 ends the JMP/JSB type hooks 
80 OAA!l 8B 76 MOVW 10(R1),(RO)+ 3; Replace the JMP/JSB opcode 
80 OC Al OD t6¢ MOVL 12(R1),(RO)+ ; Replace the longword destination 
_.- 2 *.& 0 76 ADDL2 #16,R1 : Point to next hook in table 
Fe 11 764 BRB 60$ ; Repeat for each hook 
1 4 C 765 70$ ADOL #4,R1 : Skip the end indicator 
0 81 OD 766 80$ MOVL  (R1)+,RO : Get address of SCB vector changed 
a 76 BEQL 903 ; 0 ends the om vector changes 
60 1 09 £98 MOVL (R1)+, (RO) : Replace SCB ve 
F6 1 6 BRB 80$ ; Repeat for each Ste change 
O0000000'°GF D4 4 7 9 90$: CLRL G*EXESGL_MP ; Reset pointer to multi-proc code 
00000000'"GF 16 4 77 JSB G*INISRDONLY ; Restore protection on qnecutive pages 
4 772 ENBINT ; Lower IPL for deallocate of pool 
12 BE DA 4 MTPR (SP)+,S*#PRS$_IPL 
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05 9 ae RSB ; Return to caller 
es 
ee . 


74 
75 
76 ~ END MPSSDCL 
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BUSY STATE _DSC 
CLISGET VACUE 
CLIS_IVVERB 


ERRORX 
ede pa ae 


DONE 
TATE CIC DSC 
DORLY ~ 


00000K4 


RRRRREEE 
RRERREES 
RRRERREE 


00000164 


Reeeeeee 
RERRRRRe 
RReReKERE 
Reet 
RRRERREE 
Reeeekee 
RRAKKKEE 
RERRREEE 
RRRRRERE 
REAR 
RRERKREK 
ReRRREEE 


oo 
FONOLNS OP FOO 


eeeereee 
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se 


9000000 


gerenere 


80000885 


DS OK OE OE OK OK OK OK OK OK OK OK 


B¢ 
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SBUGCHKHK 
MPHSINVALIDHK 
MPHSNEWLVLHK 
MPHSQAST 
MPHSRESCHED 
pouzenee 


MPSSASTNEWLVL 
MPSSASTSCHEDCHK 
MPSSBEGIN 
MPSSBUGCHE CK 
MPSSCMODKRNLX 
MPSSDCL 

MPSSEND 
MPS$GL_CURPCB 
MPS$GL—INTERLOCK 
MPSSGL_ 
MPSS$GL_MPMIIR 


GL_ VA 
MPS$GQ_MPSTRTIM 
MPSS$HOOK TBL 


MPSSINTS8 
MPSSINTSC 
MPSSIN 
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00000000 RG 
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CJMPLOAD.MAR; 


GOooooo 


SOooooooooooo°o°oo 
RP PUPERERERUAR RR RAR PUR 


polo loloflolololo} 


MMPNIMNININMLS LHLLLLLSE 


PPL LL S 


Page 


19 
(1 


) 


La] 


MPLOAD 

Symbol table 
MPSSSCHED 
MPSSSINTSR 
MPSSUNE XPINT 
MPS 

MPS OAD 
MPSSUNLOADK 
MPSSV_STOPACK1 
MPSS$SV_STOPREQ 


~ HK 

RPBSL HAL TPC 

RPBSV-USEMPM 
HK 


C 

SS$_BEVOFFLINE 

NORMAL 
$$$" SHMNOTCNCT 
START _CPU 
STATE 
STATE_CTL_DSC 
STATE VALDE 
STOP 


STOPRANGE 
STOPSTART 


STOP_CPU 

STOP” STATE_DSC 
SYSSCMKRNL 
SYS$FAO 
SYSSLKWSET 
VA$S_VPN 
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Psect synopsis SEP=1984 06:41 (1) 


- MP.SRCJMPLOAD.MAR; 


$wor snowman aman aan $ 


H Psect synopsis ! 


ewe rertceones ereccn} 


PSECT name Allocation PSECT No. Attributes 
» 088 -« 00 4 ( -»> 00 ¢ O.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 88 ( . 1¢( 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
SSSSSSBEGIN at ( 172.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
END 00 ( a ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
MPLOAD pc ia -) 04 ¢ 2°} NOPIC  USR ON REL LCL NOSHR EXE RD WRT NOVEC LONG 
SKEXNONPAGED 051 < 1.) 05 ¢€ 5.) NOPIC  USR REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
becca scee ene seca neces an sant 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 5 90:00:00.8 88: 0: 00.8 
feat sree Lee BRaRSaR SY BRB 
pyabo! table sort 0 00:00:09.8 00:00:08.53 
165 B83 0:03.7 00:00:08.5 
ed table output 2 a ee 8 
Psect synopsis output 88:6 :00. 0:00:00.03 
Cross-reference output 0:00:00.00 00:00:00.00 
Assembler run totals 827 00:00:25.49 00:01:04.47 


{he working set Limit was 1800 pages. 

101303 bytes (198 pages) of virtual memory were used to puffer. gbe intermediate c¢ 

There were 100 pages of symbol te | space allocated to hold 1786 non-local and 53° local symbols. 
781 source Lines were read in Pass 1, producing ie object dsb in Pass 2. 

37 pages of virtual memory were used to define 35 macros. 


Macro Library name Macros defined 
fi he 5 bh 4 
=B35Ss0UA8: OBJJLIB.MLB;1 15 
Feysi ie STARLET -ALB: 2 12 
S ittet (all Libraries) 31 


1914 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:MPLOAD/OBJ=0BJ$:MPLOAD MSRC$:MPPREF IX/UPDATE=(ENHS:MPPREF IX) *MSRC$:MPLOAD/UPDATE=(ENHS:MPLOAD) +EXECMLS/LIB+LIBS:MP.ML 
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